home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / oleo130s.zip / OLEO130S.TAR / oleo-1.3 / print.c < prev    next >
C/C++ Source or Header  |  1993-03-29  |  18KB  |  561 lines
  1. /*    Copyright (C) 1992, 1993 Free Software Foundation, Inc.
  2.  
  3. This program is free software; you can redistribute it and/or modify
  4. it under the terms of the GNU General Public License as published by
  5. the Free Software Foundation; either version 2, or (at your option)
  6. any later version.
  7.  
  8. This program is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11. GNU General Public License for more details.
  12.  
  13. You should have received a copy of the GNU General Public License
  14. along with this software; see the file COPYING.  If not, write to
  15. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  16.  
  17. #include <stdio.h>
  18. #include <ctype.h>
  19. #include "display.h"
  20. #include "font.h"
  21. #include "global.h"
  22. #include "cmd.h"
  23. #include "io-generic.h"
  24. #include "io-abstract.h"
  25.  
  26.  
  27.  
  28. #ifdef __STDC__
  29. static void 
  30. put_eps_header (struct display *dpy, float scale, float wid, float hgt, FILE *fp)
  31. #else
  32. static void 
  33. put_eps_header (dpy, scale, wid, hgt, fp)
  34.      struct display *dpy;
  35.      float scale;
  36.      float wid;
  37.      float hgt;
  38.      FILE *fp;
  39. #endif
  40. {
  41.   int dpy_wid = display_width (dpy);
  42.   int dpy_hgt = display_height (dpy);
  43.   struct font_memo *fm;
  44.   fputs ("%!PS-Adobe-2.0 EPSF-2.0\n", fp);
  45.   fprintf (fp, "%%%%BoundingBox: %d %d %d %d\n",
  46.        0, 0,
  47.        (int) ((float) dpy_wid * scale),
  48.        (int) ((float) (dpy_hgt + 1) * scale));
  49.   fputs ("%%Creator: oleo\n", fp);
  50.   fputs ("%%DocumentFonts: Times-Roman", fp);
  51.   for (fm = font_list; fm; fm = fm->next)
  52.     fprintf (fp, " %s", fm->names->ps_name);
  53.   fputc ('\n', fp);
  54.   {
  55.     time_t the_record_of_the_time = time (0);
  56.     fprintf (fp, "%%%%CreationDate: %s\n", ctime (&the_record_of_the_time));
  57.   }
  58.   fputs ("%%EndComments\n", fp);
  59. }
  60.  
  61. #ifdef __STDC__
  62. void 
  63. put_ps_string (char *str, FILE *fp)
  64. #else
  65. void 
  66. put_ps_string (str, fp)
  67.      char *str;
  68.      FILE *fp;
  69. #endif
  70. {
  71.   fputc ('(', fp);
  72.   while (*str)
  73.     {
  74.       if (*str == ')')
  75.     fputs ("\\)", fp);
  76.       else if (*str == '(')
  77.     fputs ("\\(", fp);
  78.       else
  79.     fputc (*str, fp);
  80.       ++str;
  81.     }
  82.   fputc (')', fp);
  83. }
  84.  
  85. #ifdef __STDC__
  86. void 
  87. psprint_region (FILE * fp, struct rng * rng, float wid, float hgt, char * font)
  88. #else
  89. void 
  90. psprint_region (fp, rng, wid, hgt, font)
  91.      FILE *fp;
  92.      struct rng *rng;
  93.      float wid, hgt;
  94.      char * font;
  95. #endif
  96. {
  97.   struct display dpy;
  98.   int rows = rng->hr - rng->lr + 1;
  99.   int cols = rng->hc - rng->lc + 1;
  100.   int dpy_wid;
  101.   int dpy_hgt;
  102.   float scale;
  103.  
  104.   build_unscaled_display (&dpy, rng, 0, 0);
  105.   dpy_wid = display_width (&dpy);
  106.   dpy_hgt = display_height (&dpy);
  107.   scale = wid / (float) dpy_wid;
  108.   if (scale * dpy_hgt > hgt)
  109.     scale = hgt / (float) dpy_hgt;
  110.  
  111.   put_eps_header (&dpy, scale, wid, hgt, fp);
  112.   fprintf (fp, "/min { 2 copy lt { pop } if } def\n");
  113.   fprintf (fp, "/max { 2 copy lt { exch pop } if } def\n");
  114.   fprintf (fp, "/fed { exch def } def\n");
  115.   fprintf (fp, "/gget { cvi get } def\n");
  116.   fprintf (fp, "%% Some basic facts about the region being printed. \n");
  117.   fprintf (fp, "/CharsWide %d def\n", dpy_wid);
  118.   fprintf (fp, "/CharsTall %d def\n", dpy_hgt);
  119.   fprintf (fp, "/Cols       %d def\n", cols);
  120.   fprintf (fp, "/Rows      %d def\n", rows);
  121.   fprintf (fp, "%% The scale is just the point size of the default font. \n");
  122.   fprintf (fp, "%% The value here is just an initial approximation.  The real value\n");
  123.   fprintf (fp, "%% is computed below.\n");
  124.   fprintf (fp, "/Scale     %f def\n", scale);
  125.   fprintf (fp, "/PointsWide CharsWide Scale mul def\n");
  126.   fprintf (fp, "/PointsTall CharsTall Scale mul def\n");
  127.   fprintf (fp, "\n");
  128.   fprintf (fp, "%% font setup\n");
  129.   fprintf (fp, "/pair-sub \n");
  130.   fprintf (fp, "{\n");
  131.   fprintf (fp, "  3 -1 roll exch sub 3 1 roll sub exch\n");
  132.   fprintf (fp, "} def\n");
  133.   fprintf (fp, "/font-box\n");
  134.   fprintf (fp, "{\n");
  135.   fprintf (fp, "  dup /FontBBox get /font-box-box fed\n");
  136.   fprintf (fp, "  /FontMatrix get /font-box-matrix fed\n");
  137.   fprintf (fp, "  font-box-box font-box-matrix transform\n");
  138.   fprintf (fp, "  4 2 roll font-box-matrix transform\n");
  139.   fprintf (fp, "  pair-sub  \n");
  140.   fprintf (fp, "} def\n");
  141.   fprintf (fp, "/DefaultFontName /%s def\n", default_font()->names->ps_name);
  142.   fprintf (fp, "/BasicDefaultFont DefaultFontName findfont def\n");
  143.   fprintf (fp, "/DefaultFontSize Scale round def\n");
  144.   fprintf (fp, "/SizeDir 1 def\n");
  145.   fprintf (fp, "{ \n");
  146.   fprintf (fp, "  DefaultFontSize 4 le { exit } if\n");
  147.   fprintf (fp, "  /DefaultFont BasicDefaultFont DefaultFontSize scalefont def\n");
  148.   fprintf (fp, "  DefaultFont setfont \n");
  149.   fprintf (fp, "  DefaultFont font-box\n");
  150.   fprintf (fp, "  Scale le exch Scale le and not\n");
  151.   fprintf (fp, "  { /SizeDir -1 def } { SizeDir 0 le { exit } if } ifelse\n");
  152.   fprintf (fp, "  /DefaultFontSize DefaultFontSize SizeDir add def\n");
  153.   fprintf (fp, "} loop\n");
  154.   fprintf (fp, "/DefaultFontSize DefaultFontSize def\n");
  155.   fprintf (fp, "/DefaultFont BasicDefaultFont DefaultFontSize scalefont def\n");
  156.   fprintf (fp, "/Scale DefaultFontSize def\n");
  157.   fprintf (fp, "\n");
  158.   fprintf (fp, "DefaultFont font-box\n");
  159.   fprintf (fp, "/Scaleh fed\n");
  160.   fprintf (fp, "/Scalew fed\n");
  161.   fprintf (fp, "\n");
  162.   fprintf (fp, "/CellsUsed Rows Cols mul array def\n");
  163.   fprintf (fp, "0 1 Rows Cols mul 1 sub { CellsUsed exch false put } for\n");
  164.   fprintf (fp, "\n");
  165.   fprintf (fp, "/checkused   %% r c -- bool\n");
  166.   fprintf (fp, "{\n");
  167.   fprintf (fp, "  exch Cols mul add CellsUsed exch gget\n");
  168.   fprintf (fp, "} def\n");
  169.   fprintf (fp, "\n");
  170.   fprintf (fp, "/setused   %% r c -- \n");
  171.   fprintf (fp, "{\n");
  172.   fprintf (fp, "  exch Cols mul add CellsUsed exch true put\n");
  173.   fprintf (fp, "} def\n");
  174.   fprintf (fp, "\n");
  175.   {
  176.     int ri, ci;
  177.     for (ri = 0; ri < rows; ++ri)
  178.       for (ci = 0; ci < cols; ++ci)
  179.     {
  180.       struct cell_display * cd = dpy.cells + ri * cols + ci;
  181.       if (cd->unclipped)
  182.         fprintf (fp, "%d %d setused\n", ri, ci);
  183.     }
  184.     fprintf (fp, "/Rowy [ ");
  185.     for (ri = 0; ri < rows; ++ri)
  186.       fprintf (fp, "%d ", dpy.rowy[ri]);
  187.     fprintf (fp, "] def\n/Colx [ ");
  188.     for (ci = 0; ci < cols; ++ci)
  189.       fprintf (fp, "%d ", dpy.colx[ci]);
  190.     fprintf (fp, "] def\n");
  191.     fprintf (fp, "/Heights [ ");
  192.     for (ri = 0; ri < rows; ++ri)
  193.       fprintf (fp, "%d ", dpy.heights[ri]);
  194.     fprintf (fp, "] def\n/Widths [ ");
  195.     for (ci = 0; ci < cols; ++ci)
  196.       fprintf (fp, "%d ", dpy.widths[ci]);
  197.     fprintf (fp, "] def\n");
  198.   }
  199.   fprintf (fp, "\n");
  200.   fprintf (fp, "/to-oleo-matrix\n");
  201.   fprintf (fp, "    0 PointsTall neg matrix translate \n");
  202.   fprintf (fp, "    1 Scalew div 1 Scaleh div neg matrix scale\n");
  203.   fprintf (fp, " matrix concatmatrix def\n");
  204.   fprintf (fp, "\n");
  205.   fprintf (fp, "/from-oleo-matrix to-oleo-matrix matrix invertmatrix def\n");
  206.   fprintf (fp, "\n");
  207.   fprintf (fp, "/rc-to-oleo-xy { Colx exch gget exch Rowy exch gget } def\n");
  208.   fprintf (fp, "/rc-to-oleo-wh { Widths exch gget exch Heights exch gget } def\n");
  209.   fprintf (fp, "/oleo-xy-to-ps { from-oleo-matrix transform } def\n");
  210.   fprintf (fp, "/rc-to-xy { rc-to-oleo-xy oleo-xy-to-ps } def\n");
  211.   fprintf (fp, "/rc-to-wh { rc-to-oleo-wh Scaleh mul exch Scalew mul exch } def\n");
  212.   fprintf (fp, "/oleo-box-to-ps\n");
  213.   fprintf (fp, "{ \n");
  214.   fprintf (fp, "  dup dup 0 gget exch 1 gget oleo-xy-to-ps\n");
  215.   fprintf (fp, "  3 -1 roll dup dup 2 gget exch 3 gget oleo-xy-to-ps\n");
  216.   fprintf (fp, "  3 -1 roll astore\n");
  217.   fprintf (fp, "} def\n");
  218.   fprintf (fp, "\n");
  219.   fprintf (fp, "\n");
  220.   fprintf (fp, "/cell-goal   %% string just r c -- [x y x' y']\n");
  221.   fprintf (fp, "{\n");
  222.   fprintf (fp, "  3 index stringwidth pop /cell-goal-w exch def\n");
  223.   fprintf (fp, "  /cell-goal-h DefaultFontSize 2 add def\n");
  224.   fprintf (fp, "  2 copy rc-to-xy   %% str j r c xcel ycel\n");
  225.   fprintf (fp, "  5 -1 roll dup 0 lt \n");
  226.   fprintf (fp, "  { pop }  %% str r c xstr ycel\n");
  227.   fprintf (fp, "  { 0 eq         %% str r c xcel ycel bool\n");
  228.   fprintf (fp, "    Widths 4 index gget Scalew mul exch  %% str r c xcel ycel wcell bool\n");
  229.   fprintf (fp, "    { cell-goal-w sub 2 div 3 -1 roll add exch }\n");
  230.   fprintf (fp, "    { 2 index add cell-goal-w sub 3 -1 roll pop exch } ifelse \n");
  231.   fprintf (fp, "    %% str r c xstr ycel \n");
  232.   fprintf (fp, " } ifelse      \n");
  233.   fprintf (fp, " %% str r c xstr ycel \n");
  234.   fprintf (fp, " 5 -3 roll pop pop pop\n");
  235.   fprintf (fp, " 2 copy  cell-goal-h add exch cell-goal-w add exch\n");
  236.   fprintf (fp, " 4 array astore  \n");
  237.   fprintf (fp, "} def\n");
  238.   fprintf (fp, "\n");
  239.   fprintf (fp, "/layout        %%  [x y x' y'] r c -- [rlo clo rhi chi]\n");
  240.   fprintf (fp, "{\n");
  241.   fprintf (fp, "  2 copy \n");
  242.   fprintf (fp, "  /layout_c fed\n");
  243.   fprintf (fp, "  /layout_r fed\n");
  244.   fprintf (fp, "  exch 2 copy 4 array astore     %% [x y x' y'] [c r c r]\n");
  245.   fprintf (fp, "  /layout_answer fed\n");
  246.   fprintf (fp, "  /layout_goal fed\n");
  247.   fprintf (fp, "\n");
  248.   fprintf (fp, "  layout_answer 0 gget    \n");
  249.   fprintf (fp, "  {\n");
  250.   fprintf (fp, "    dup 0 eq { exit } if\n");
  251.   fprintf (fp, "    dup Colx exch gget Scalew mul layout_goal 0 gget le { exit } if\n");
  252.   fprintf (fp, "    1 sub\n");
  253.   fprintf (fp, "  } loop\n");
  254.   fprintf (fp, "  layout_answer exch 0 exch put\n");
  255.   fprintf (fp, "\n");
  256.   fprintf (fp, "  layout_answer 1 gget    \n");
  257.   fprintf (fp, "  {\n");
  258.   fprintf (fp, "    dup 0 eq { exit } if\n");
  259.   fprintf (fp, "    dup Rowy exch gget Scaleh mul layout_goal 1 gget le { exit } if\n");
  260.   fprintf (fp, "    1 sub\n");
  261.   fprintf (fp, "  } loop\n");
  262.   fprintf (fp, "  layout_answer exch 3 exch put\n");
  263.   fprintf (fp, "\n");
  264.   fprintf (fp, "  layout_answer 2 gget    \n");
  265.   fprintf (fp, "  {\n");
  266.   fprintf (fp, "    dup Cols 1 sub eq { exit } if\n");
  267.   fprintf (fp, "    dup dup Colx exch gget exch Widths exch gget add Scalew mul\n");
  268.   fprintf (fp, "    layout_goal 2 gget gt { exit } if\n");
  269.   fprintf (fp, "    1 add \n");
  270.   fprintf (fp, "  } loop\n");
  271.   fprintf (fp, "  layout_answer exch 2 exch put\n");
  272.   fprintf (fp, "\n");
  273.   fprintf (fp, "  layout_answer dup 0 gget exch 1 gget \n");
  274.   fprintf (fp, "  layout_answer exch 0 exch put layout_answer exch 1 exch put\n");
  275.   fprintf (fp, "  layout_answer dup 2 gget exch 3 gget \n");
  276.   fprintf (fp, "  layout_answer exch 2 exch put layout_answer exch 3 exch put\n");
  277.   fprintf (fp, "  layout_answer 1 gget 1 layout_answer 3 gget\n");
  278.   fprintf (fp, "  {\n");
  279.   fprintf (fp, "    /layout_ct fed\n");
  280.   fprintf (fp, "    layout_r 1 layout_answer 2 gget \n");
  281.   fprintf (fp, "     {\n");
  282.   fprintf (fp, "       /layout_rt fed\n");
  283.   fprintf (fp, "       layout_rt layout_ct checkused \n");
  284.   fprintf (fp, "    {\n");
  285.   fprintf (fp, "      layout_ct layout_c lt\n");
  286.   fprintf (fp, "        { layout_ct 1 add layout_answer 1 gget max layout_answer exch 1 exch put }\n");
  287.   fprintf (fp, "        if\n");
  288.   fprintf (fp, "      layout_ct layout_c gt\n");
  289.   fprintf (fp, "        { layout_ct 1 sub layout_answer 3 gget min layout_answer exch 3 exch put }\n");
  290.   fprintf (fp, "        if\n");
  291.   fprintf (fp, "      layout_rt layout_r lt\n");
  292.   fprintf (fp, "        { layout_rt 1 add layout_answer 0 gget max layout_answer exch 0 exch put }\n");
  293.   fprintf (fp, "        if\n");
  294.   fprintf (fp, "    } if\n");
  295.   fprintf (fp, "     } for\n");
  296.   fprintf (fp, "  } for\n");
  297.   fprintf (fp, "\n");
  298.   fprintf (fp, "  layout_answer 0 gget 1 layout_answer 2 gget \n");
  299.   fprintf (fp, "  {\n");
  300.   fprintf (fp, "    /layout_rt fed\n");
  301.   fprintf (fp, "    layout_answer 1 gget 1 layout_answer 3 gget\n");
  302.   fprintf (fp, "    {\n");
  303.   fprintf (fp, "      layout_rt exch setused\n");
  304.   fprintf (fp, "    } for \n");
  305.   fprintf (fp, "  } for\n");
  306.   fprintf (fp, "\n");
  307.   fprintf (fp, "  layout_answer\n");
  308.   fprintf (fp, "} def\n");
  309.   fprintf (fp, "\n");
  310.   fprintf (fp, "\n");
  311.   fprintf (fp, "/add-pair\n");
  312.   fprintf (fp, "{\n");
  313.   fprintf (fp, "  3 -1 roll add 3 1 roll add exch\n");
  314.   fprintf (fp, "} def\n");
  315.   fprintf (fp, "\n");
  316.   fprintf (fp, "/layout-to-oleo-box\n");
  317.   fprintf (fp, "{\n");
  318.   fprintf (fp, "  dup dup 0 gget exch 1 gget rc-to-oleo-xy 3 -1 roll\n");
  319.   fprintf (fp, "  dup 0 gget exch 1 gget \n");
  320.   fprintf (fp, "  2 copy rc-to-oleo-xy 4 2 roll\n");
  321.   fprintf (fp, "  rc-to-oleo-wh add-pair\n");
  322.   fprintf (fp, "  4 array astore\n");
  323.   fprintf (fp, "} def\n");
  324.   fprintf (fp, "\n");
  325.   fprintf (fp, "/layout-to-bbox\n");
  326.   fprintf (fp, "{\n");
  327.   fprintf (fp, "  layout-to-oleo-box oleo-box-to-ps\n");
  328.   fprintf (fp, "} def\n");
  329.   fprintf (fp, "\n");
  330.   fprintf (fp, "/boxpath\n");
  331.   fprintf (fp, "{\n");
  332.   fprintf (fp, "  newpath\n");
  333.   fprintf (fp, "  dup dup 0 gget exch 1 gget moveto\n");
  334.   fprintf (fp, "  dup dup 0 gget exch 3 gget lineto\n");
  335.   fprintf (fp, "  dup dup 2 gget exch 3 gget lineto\n");
  336.   fprintf (fp, "  dup 2 gget exch 1 gget lineto\n");
  337.   fprintf (fp, "  closepath\n");
  338.   fprintf (fp, "} def\n");
  339.   fprintf (fp, "\n");
  340.   fprintf (fp, "/use-font\n");
  341.   fprintf (fp, "{\n");
  342.   fprintf (fp, "  /CellFont fed\n");
  343.   fprintf (fp, "  CellFont setfont\n");
  344.   fprintf (fp, "  CellFont /FontBBox get\n");
  345.   fprintf (fp, "   dup dup 0 gget exch 1 gget CellFont /FontMatrix get transform\n");
  346.   fprintf (fp, "  neg /CellFontDescent fed\n");
  347.   fprintf (fp, "  neg /CellFontLbearing fed\n");
  348.   fprintf (fp, "   3 gget 0 exch CellFont /FontMatrix get transform exch pop\n");
  349.   fprintf (fp, "  /CellFontAscent fed\n");
  350.   fprintf (fp, "} def\n");
  351.   fprintf (fp, "DefaultFont use-font\n");
  352.   fprintf (fp, "\n");
  353.   fprintf (fp, "/cell %% str just r c\n");
  354.   fprintf (fp, "{\n");
  355.   fprintf (fp, "  /cell-c fed\n");
  356.   fprintf (fp, "  /cell-r fed\n");
  357.   fprintf (fp, "  /cell-j fed\n");
  358.   fprintf (fp, "  /cell-s fed\n");
  359.   fprintf (fp, "  \n");
  360.   fprintf (fp, "  /cell-g cell-s cell-j cell-r cell-c cell-goal def\n");
  361.   fprintf (fp, "  /cell-l cell-g cell-r cell-c layout layout-to-bbox def\n");
  362.   fprintf (fp, "\n");
  363.   fprintf (fp, "  cell-g 0 get cell-g 1 get moveto\n");
  364.   fprintf (fp, "  CellFontLbearing\n");
  365.   fprintf (fp, "  CellFontAscent neg rmoveto\n");
  366.   fprintf (fp, "  cell-s show\n");
  367.   fprintf (fp, "} def\n");
  368.   fprintf (fp, "\n");
  369.   {
  370.     int ri, ci;
  371.     struct font_memo * last_font = default_font ();
  372.     for (ri = 0; ri < rows; ++ri)
  373.       for (ci = 0; ci < cols; ++ci)
  374.     {
  375.       struct cell_display * cd = dpy.cells + ri * cols + ci;
  376.       if (cd->unclipped)
  377.         {
  378.           fprintf (fp, "/S ");
  379.           put_ps_string (cd->unclipped, fp);
  380.           fprintf (fp, " def \nS ");
  381.           switch (cd->justification)
  382.         {
  383.         default:
  384.         case JST_LFT:
  385.           fprintf (fp, " -1 ");
  386.           break;
  387.         case JST_CNT:
  388.           fprintf (fp, " 0 ");
  389.           break;
  390.         case JST_RGT:
  391.           fprintf (fp, " 1 ");
  392.           break;
  393.         };
  394.  
  395.           {
  396.         struct font_memo * font = cd->font;
  397.         if (!font)
  398.           font = default_font ();
  399.         if (font != last_font)
  400.           {
  401.             fprintf (fp, "/%s findfont %f DefaultFontSize mul",
  402.                  font->names->ps_name, font->scale);
  403.             fprintf (fp, " scalefont use-font\n");
  404.             last_font = font;
  405.           }
  406.         fprintf (fp, "%d %d cell\n", ri, ci);
  407.           }
  408.         }
  409.     }
  410.   }
  411.   free_display (&dpy);
  412. }
  413.  
  414.  
  415.  
  416. /* Front end to PostScript printing. */
  417.  
  418. struct page_size 
  419. {
  420.     char *name;
  421.     float wid;
  422.     float hgt;
  423. };
  424.  
  425. static struct page_size size_table[] =
  426. {
  427.   { "letter",       612,  792     }, /* (8.5 x 11  in.)   */
  428.   { "landscape",    792,  612     }, /* (11 x 8.5  in.)   */
  429.   { "tabloid",      792,  1224    }, /* (11 x 17  in.)    */
  430.   { "ledger",       1224, 792     }, /* (17 x 11  in.)    */
  431.   { "legal",        612,  1008    }, /* (8.5 x 14  in.)   */
  432.   { "statement",    396,  612     }, /* (5.5 x 8.5 in.)   */
  433.   { "executive",    540,  720     }, /* (7.5 x 10  in.)   */
  434.   { "a3",           842,  1190    },
  435.   { "a4",           595,  842     },
  436.   { "latex-a4",     523,  770     }, /* A4 - 1in margins all round */
  437.   { "a5",           420,  595     },
  438.   { "b4",           729,  1032    },
  439.   { "b5",           516,  729     },      
  440.   { "folio",        612,  936     }, /* (8.5 x 13  in.)   */
  441.   { "quarto",       610,  780     }
  442. };
  443.  
  444. #ifdef __STDC__
  445. static struct page_size *
  446. find_size( char * size, int len )
  447. #else
  448. static struct page_size *
  449. find_size( size, len )
  450.      char *size;
  451.      int len;
  452. #endif
  453. {
  454.   int i;
  455.   struct page_size *p = size_table;
  456.   
  457.   for (i = 0;
  458.        i < sizeof(size_table)/sizeof(struct page_size);
  459.        i++, p++)
  460.     if (strincmp (size, p->name, len) == 0 )
  461.       return p;
  462.   return 0;
  463. }
  464.  
  465. static float default_pswid = 8.5 * 72.;
  466. static float default_pshgt = 11. * 72.;
  467.  
  468. #ifdef __STDC__
  469. void
  470. set_page_size_cmd (char * whole_str)
  471. #else
  472. void
  473. set_page_size_cmd (whole_str)
  474.      char * whole_str;
  475. #endif
  476. {
  477.   char * str = whole_str;
  478.   float neww;
  479.   float newh;
  480.   while (*str && isspace(*str))
  481.     ++str;
  482.   if (!isdigit (*str) && *str != '.')
  483.     {
  484.       char * end = str;
  485.       struct page_size * ps;
  486.       while (*end && !isspace(*end))
  487.     ++end;
  488.       ps = find_size (str, end - str);
  489.       if (ps)
  490.     {
  491.       default_pswid = ps->wid;
  492.       default_pshgt = ps->hgt;
  493.       return;
  494.     }
  495.       io_error_msg
  496.     ("Bad page size (should look like `8.5 x 11' or `21.6 x 28c'): %s.",
  497.      whole_str);
  498.       return;
  499.     }
  500.   neww = atof (str);
  501.   while (*str && isdigit(*str))
  502.     ++str;
  503.   if (*str == '.')
  504.     {
  505.       ++str;
  506.       while (isdigit (*str))
  507.     ++str;
  508.     }
  509.   while (*str && isspace(*str))
  510.     ++str;
  511.   if (*str == 'x')
  512.     {
  513.       ++str;
  514.       while (*str && isspace(*str))
  515.     ++str;
  516.     }
  517.   if (!isdigit (*str) && *str != '.')
  518.     {
  519.       io_error_msg
  520.     ("Bad page size (should look like `8.5 x 11' or `21.6 x 28c'): %s.",
  521.      whole_str);
  522.       return;
  523.     }
  524.   newh = atof (str);
  525.   while (*str && isdigit(*str))
  526.     ++str;
  527.   if (*str == '.')
  528.     {
  529.       ++str;
  530.       while (*str && isdigit (*str))
  531.     ++str;
  532.     }
  533.   while (*str && isspace(*str))
  534.     ++str;
  535.   if (*str == 'c')
  536.     {
  537.       neww *= .3937;
  538.       newh *= .3937;
  539.     }
  540.   if (*str != 'p')
  541.     {
  542.       default_pswid = neww * 72;
  543.       default_pshgt = newh * 72;
  544.     }
  545. }
  546.  
  547. #ifdef __STDC__
  548. void 
  549. psprint_region_cmd (FILE *fp, struct rng *rng)
  550. #else
  551. void 
  552. psprint_region_cmd (fp, rng)
  553.      FILE *fp;
  554.      struct rng *rng;
  555. #endif
  556. {
  557.   psprint_region (fp, rng, default_pswid, default_pshgt, 0);
  558. }
  559.  
  560.  
  561.